home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_12_1986_Transactor_Publishing.d64 / vocab manager (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  3KB  |  187 lines
  1. 0 rem vocab manager (aug 29/84)       :
  2. 1 :
  3. 2 rem 2 statements, 2 functions
  4. 3 :
  5. 4 rem keyword characters: 20
  6. 5 :
  7. 6 rem keyword     routine  line   ser #
  8. 7 rem s/file      fil      4194    050
  9. 8 rem s/initfp    infptr   4274    051
  10. 9 rem f/fploc     fplo     4308    052
  11. 10 rem f/scan(    scan     4316    053
  12. 11 :
  13. 12 rem u/cifchr (2560/003)
  14. 13 rem u/usfp   (2620/006)
  15. 14 rem u/cifnum (4092/047)
  16. 15 rem d/flptr  (4470/054)
  17. 16 :
  18. 17 rem ================================
  19. 18 :
  20. 113 .asc "fil[197]initf[208]"
  21. 610 .asc "fplo[195]scan[168]"
  22. 1113 .word fil-1,infptr-1
  23. 1610 .word fplo-1,scan-1
  24. 2560 cifchr cmp #$5b;test alphabetic
  25. 2562 bcc cic1
  26. 2564 clc
  27. 2566 bcc cic2
  28. 2568 cic1 cmp #$41
  29. 2570 cic2 rts
  30. 2572 ;
  31. 2620 usfp ldx #0
  32. 2622 stx $0d
  33. 2624 sta $62
  34. 2626 sty $63
  35. 2628 ldx #$90
  36. 2630 sec
  37. 2632 jmp $bc49
  38. 2634 ;
  39. 4092 cifnum cmp #":";test numeric
  40. 4094 bcc cin1
  41. 4096 clc
  42. 4098 bcc cin2
  43. 4100 cin1 cmp #"0"
  44. 4102 cin2 rts
  45. 4104 ;
  46. 4194 fil cmp #$22
  47. 4196 bne fi4
  48. 4198 ldy flptr
  49. 4200 lda flptr+1
  50. 4202 sty $22
  51. 4204 sta $23
  52. 4206 fi1 ldy #0
  53. 4208 jsr $73
  54. 4210 bcc fi2
  55. 4212 cmp #0
  56. 4214 beq fi3
  57. 4216 cmp #$22
  58. 4218 beq fi4
  59. 4220 cmp #","
  60. 4222 beq fi3
  61. 4224 jsr cifchr
  62. 4226 bcc fi1
  63. 4228 fi2 tax
  64. 4230 sta ($22),y
  65. 4232 inc $22
  66. 4234 bne fi1
  67. 4236 inc $23
  68. 4237 lda $23
  69. 4238 cmp #$c0
  70. 4240 bne fi1
  71. 4242 jmp $a435
  72. 4244 fi3 pha
  73. 4246 dey
  74. 4248 dec $23
  75. 4250 txa
  76. 4252 ora #$80
  77. 4254 sta ($22),y
  78. 4256 inc $23
  79. 4258 pla
  80. 4260 cmp #","
  81. 4262 beq fi1
  82. 4264 ldy $22
  83. 4266 lda $23
  84. 4268 bne ifp4
  85. 4270 fi4 jmp $af08
  86. 4272 ;
  87. 4274 infptr beq ifp2;no param
  88. 4276 jsr $ad8a
  89. 4278 jsr $b7f7
  90. 4280 cmp #$a0
  91. 4282 bcc ifp1
  92. 4284 beq ifp3
  93. 4286 cmp #$c0
  94. 4288 bcc ifp4
  95. 4290 ifp1 jmp $b248
  96. 4292 ifp2 ldy #1
  97. 4294 lda #$a0
  98. 4296 ifp3 cpy #0
  99. 4298 beq ifp1
  100. 4300 ifp4 sty flptr
  101. 4302 sta flptr+1
  102. 4304 rts
  103. 4306 ;
  104. 4308 fplo ldy flptr
  105. 4310 lda flptr+1
  106. 4312 jmp usfp
  107. 4314 ;
  108. 4316 scan jsr $aef4
  109. 4318 jsr $b6a3
  110. 4320 sta t3
  111. 4322 sta t4
  112. 4324 txa
  113. 4326 pha
  114. 4328 tya
  115. 4330 pha
  116. 4332 lda t3
  117. 4334 jsr $b47d
  118. 4336 stx $24
  119. 4338 sty $25
  120. 4340 pla
  121. 4342 sta $23
  122. 4344 pla
  123. 4346 sta $22
  124. 4348 dec 1
  125. 4350 ldy #$ff
  126. 4352 ldx #0
  127. 4354 sca1 dec t4
  128. 4356 sca2 iny
  129. 4358 cpy t3
  130. 4360 beq sca4
  131. 4362 lda ($22),y
  132. 4364 jsr cifnum
  133. 4366 bcs sca3
  134. 4368 and #$7f
  135. 4370 jsr cifchr
  136. 4372 bcc sca1
  137. 4374 sca3 sta ($62,x);add to new string
  138. 4376 jsr bmp62
  139. 4378 bne sca2
  140. 4380 sca4 stx t5
  141. 4382 stx t6
  142. 4384 bit t4
  143. 4386 bmi sca11
  144. 4388 lda #1
  145. 4390 sta $62
  146. 4392 lda #$a0
  147. 4394 sta $63
  148. 4396 sca5 inc t5
  149. 4398 bne sca6
  150. 4400 inc t6
  151. 4402 sca6 lda $63
  152. 4404 cmp flptr+1
  153. 4406 bne sca7
  154. 4408 lda $62
  155. 4410 cmp flptr
  156. 4412 sca7 txa
  157. 4414 tay
  158. 4416 bcs sca12
  159. 4418 dey
  160. 4420 sca8 iny
  161. 4422 lda ($62),y
  162. 4424 cpy t4
  163. 4426 beq sca9
  164. 4428 cmp ($24),y
  165. 4430 beq sca8
  166. 4432 bne sca10
  167. 4434 sca9 sbc ($24),y;test last vocab
  168. 4436 cmp #$80
  169. 4438 beq sca11
  170. 4440 sca10 lda ($62,x);advance vocab
  171. 4442 php
  172. 4444 jsr bmp62
  173. 4446 plp
  174. 4448 bpl sca10
  175. 4450 bmi sca5
  176. 4452 sca11 ldy t5
  177. 4454 lda t6
  178. 4456 sca12 inc 1
  179. 4458 jmp $b391
  180. 4460 bmp62 inc $62
  181. 4462 bne b62
  182. 4464 inc $63
  183. 4466 b62 rts
  184. 4468 ;
  185. 4470 flptr .word $a001;ptr to file bufr
  186. 4472 ;
  187.